home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / latex209 / contrib / epsfig / epsfig.2e < prev    next >
Text File  |  1994-01-26  |  49KB  |  1,338 lines
  1. %----------------------------------------------
  2. \NeedsTeXFormat{LaTeX2e}
  3. \def\fileversion{2}%
  4. \def\filedate{1994/01/25}%
  5. \ProvidesPackage{epsfig}[\filedate]
  6. \message{ Epsfig }
  7. % minimal reworking for LaTeX2e!
  8. % 
  9. % this will be all be rewritten when the LaTeX2e includegraphics
  10. % comes out.
  11. %
  12. % SPQR Jan 94
  13. %
  14. %%%--------------------------------------------------------------------
  15. %%% psfig merged with EPSF = epsfig Release 1
  16. %%% 1.0 November 91
  17. %%% 1.1 Dec 91  fixed some bugs
  18. %%% 1.2 Jan 92  fixed bug that it never stopped reading PS file until
  19. %%%             it reached the end! merged in changes from psfig1.8
  20. %%%             (plain TeX definition of \fbox, new code for rotation)
  21. %%% 1.3 Jan 92  separated out \special code so that dvitops can be
  22. %%%             supported. use \psfigdriver{dvitops}%
  23. %%% 1.4 Jan 92  fixed dvitops. need to input psfig at different point
  24. %%%      in dvips from dvitops. define \psfig@start and \psfig@end to cope
  25. %%%      with this
  26. %%% 1.5 Jan 92  force use of psfig method if using dvitops
  27. %%% 1.6 May 92 fixed bugs
  28. %%% 1.7 Sep 92 added support for emtex, sort of. reads a .bb file
  29. %%%            and imports .pcx file. Boolean flag \epsfigdos used
  30. %%%             to indicate that we cannot have more than one . in the
  31. %%%             suffix (ie we will look at file.bb not file.eps.bb)
  32. %%%
  33. %%% 1.8 Sep 92 added support for OzTeX; fixed bugs in dvips support
  34. %%% (including clipping to bounding box); removed use of dimen100.
  35. %%%
  36. %%% 1.9 Dec 92 cleaned up documentation again
  37. %%% 1.10 Mar 93 cleaned up for plain TeX
  38. %%% 1.11 Mar 93 merged in changes by Peter Galko (supplied by CERN) for
  39. %%%             use with Textures
  40. %%% 1.12 Apr 93 actually *tested* the Textures additions, and so rewrote
  41. %%%            from scratch (borrowed an idea from psbox)
  42. %%% 1.13 May 93 allow for file names with _ or $ in them in \psdraft, and
  43. %%%             fix problem that occurred with missing BoundingBox
  44. %%% 1.14 May 93 allow for .z suffix
  45. %%% 1.15 July 93 allow for .gz suffix
  46. %%%              use \leavevmode as appropriate
  47. %%%              fix plain \TeX mode 
  48. %%%             (fixes from Peter-Klaus Schilling <R02SCH@DSYIBM.DESY.DE>)
  49. %%% 1.16 August 93 [peta@mcrcim.mcgill.edu (Peter Whaite)]
  50. %%%        -- Implement Perl scripts to do compressed file inclusion and bb
  51. %%%           generation. 
  52. %%%        -- Add \pscompress.
  53. %%%        -- Tidy up comments.
  54. %%% 1.17 September 93 SPQR
  55. %%%     better code for literal name printing
  56. %%%     allowed for spaces around , and =
  57. %%% 1.18 17.9.93
  58. %%%   updates to epsbb and epsfig from Peter W
  59. %%% 1.19 14.11.93
  60. %%%   mistaken placement of calculation of EPS@Height resulted in errors
  61. %%%
  62. %--------------------------------------------------------
  63. %%%
  64. %%% code rearranged by Sebastian Rahtz (spqr@uk.ac.york.minster)
  65. %%% from work by
  66. %%% Trevor Darrell; Tom Rokicki; Daniel Smith; H. Payne, Robert Russell
  67. %%%
  68. %%% This is a version of Darrell's `psfig' macros which are designed
  69. %%% to be used with dvips or dvitops, and the `epsf' macros (these are
  70. %%% automaticaly included by the style file). I did this because the
  71. %%% \special commands used by `epsf' appear to be more robust and
  72. %%% portable than the raw \specials used by `psfig', but I preferred
  73. %%% the psfig interface. This system preserves the psfig interface,
  74. %%% but mainly uses epsf macros to carry out the job. The user
  75. %%% interface is identical to \psfig, but you just use \epsfig
  76. %%% instead. Rotation uses the original psfig macros: I could not work
  77. %%% out how to do rotation with the epsf macros.
  78. %%%
  79. %%% The same applies to `rheight' and `rwidth'
  80. %%%
  81. %%% If you *really* want old psfig behaviour regardless, use \psfig. It is
  82. %%% still there. Some of the features have gone, however. \figurepath
  83. %%% seemed redundant, since it could be controlled by the TEXINPUTS
  84. %%% variable anyway.
  85. %%%
  86. %%% As an added feature, if FILE cannot be found, a file called FILE.bb
  87. %%% is searched for. This should simply contain a %%BoundingBox line. A perl
  88. %%% script "epsbb" is provided to generate these automatically.  It is
  89. %%% assumed that if this exists, then the actual postscript is in UNIX
  90. %%% compress format in FILE.Z or in GNU gzip format in FILE.gz or FILE.z.
  91. %%%
  92. %%% The macros then read the BB from FILE.bb, but insert "`epsfig FILE`" in
  93. %%% the  output for dvips to interpret (don't worry, it knows about this).
  94. %%% "Epsfig" is another perl script which  searches the TEXINPUTS path for
  95. %%% FILE or FILE.{gz,z,Z}.
  96. %%%
  97. %%% As an added bonus if you say \pscompress the -c switch will be passed to
  98. %%% epsfig, causing automatic FILE.bb generation and compression the first
  99. %%% time dvips is run.  Files in the system directories will NOT be
  100. %%% compressed.
  101. %%% If you are *not* on a Unix system and use this, deliberately or by
  102. %%% mischance, you will have problems!
  103. %%%
  104. %%% This file can be included in a dumped format, or used as a LaTeX
  105. %%% style file, or used in plain TeX. It does not load itself twice (I hope)
  106. %%%
  107. %--------------------------------------------------------------------
  108. %--------------------------------------------------------------------
  109. %%% previous notes. this copy of psfig.tex inherited from versions 1.8
  110. %--------------------------------------------------------------------
  111. %%% All psfig/tex software, documentation, and related files
  112. %%% in this distribution of psfig/tex are
  113. %%% Copyright 1987, 1988, 1991 Trevor J. Darrell
  114. %
  115. %%% Permission is granted for use and non-profit distribution of psfig/tex
  116. %%% providing that this notice be clearly maintained. The right to
  117. %%% distribute any portion of psfig/tex for profit or as part of any commercial
  118. %%% product is specifically reserved for the author(s) of that portion.
  119. %%%
  120. %%% Thanks to Greg Hager (GDH) and Ned Batchelder for their contributions
  121. %%% to this project.
  122. %%%--------------------------------------------------------------------------
  123. %%% GDH 7/26/87 -- changed so that it first looks in the local directory,
  124. %%% then in a specified global directory for the ps file.
  125. %%% SPQR 12/91 removed that last change. it follows TEXINPUTS anyway
  126. %%% RPR 6/25/91 -- changed so that it defaults to user-supplied name if
  127. %%% boundingbox info is specified, assuming graphic will be created by
  128. %%% print time.
  129. %%% SPQR 12/91 removed that last change. use LaTeX error message instead
  130. %%% SPQR 12/91 -- `no file found' produces LaTeX error message.
  131. %%%                If you recover from that the file name is set in draft
  132. %%%                mode in place of the file.
  133. %%%
  134. %%% Modified by J. Daniel Smith on 9 October 1990 to accept the
  135. %%% %%BoundingBox: comment with or without a space after the colon.  Stole
  136. %%% file reading code from Tom Rokicki's EPSF.TEX file (see below).
  137. %%% --- SPQR 12.91 removed most of this to use epsf directly
  138. %%%
  139. %%% More modifications by J. Daniel Smith on 29 March 1991 to allow the
  140. %%% the included PostScript figure to be rotated.  The amount of
  141. %%% rotation is specified by the "angle=" parameter of the \epsfig command.
  142. %%%
  143. %%% Modified by Robert Russell on June 25, 1991 to allow users to specify
  144. %%% .ps filenames which don't yet exist, provided they explicitly provide
  145. %%% boundingbox information via the \epsfig command. Note: This will only work
  146. %%% if the "file=" parameter follows all four "bb???=" parameters in the
  147. %%% command. This is due to the order in which psfig interprets these params.
  148. %%% ---- SPQR 12.91 removed all this
  149. %%%
  150. %%% 3 Jul 1991  JDS     check if file already read in once
  151. %%%
  152. %-----------------------------USAGE---------------------------------------
  153. % From: gvr@cs.brown.edu (George V. Reilly)
  154. %
  155. % \psdraft      draws an outline box, but doesn't include the figure
  156. %               in the DVI file.  Useful for previewing.
  157. %
  158. % \psfull       includes the figure in the DVI file (default).
  159. %
  160. % \psscalefirst width= or height= specifies the size of the figure
  161. %               before rotation.
  162. % \psrotatefirst (default) width= or height= specifies the size of the
  163. %                figure after rotation.  Asymetric figures will
  164. %                appear to shrink.
  165. %
  166. % usage: \epsfig{file=, figure=, height=, width=,
  167. %                       bbllx=, bblly=, bburx=, bbury=,
  168. %                       rheight=, rwidth=, clip=, angle=, silent=}%
  169. %
  170. %       "file" is the filename.  If no path name is specified and the
  171. %               file is not found in the current directory,
  172. %               it will be looked for in directory \psfigurepath.
  173. %       "figure" is a synonym for "file".
  174. %       By default, the width and height of the figure are taken from
  175. %               the BoundingBox of the figure.
  176. %       If "width" is specified, the figure is scaled so that it has
  177. %               the specified width.  Its height changes proportionately.
  178. %       If "height" is specified, the figure is scaled so that it has
  179. %               the specified height.  Its width changes proportionately.
  180. %       If both "width" and "height" are specified, the figure is scaled
  181. %               anamorphically.
  182. %       "bbllx", "bblly", "bburx", and "bbury" control the PostScript
  183. %               BoundingBox.
  184. %       "rheight" and "rwidth" are the reserved height and width
  185. %               of the figure, i.e., how big TeX actually thinks
  186. %               the figure is.  They default to "width" and "height".
  187. %       The "clip" option ensures that no portion of the figure will
  188. %               appear outside its BoundingBox.  "clip=" is a switch and
  189. %               takes no value, but the `=' must be present.
  190. %       The "angle" option specifies the angle of rotation (degrees, ccw).
  191. %       The "silent" option makes \psfig work silently.
  192. %
  193. %--------------------------------------------------------------------------
  194. %%% if this is true, the original Darrell macros and specials are used
  195. \newif\ifuse@psfig
  196. \use@psfigtrue
  197. \newcount\EPS@Height \newcount\EPS@Width \newcount\EPS@xscale
  198. \newcount\EPS@yscale
  199. \def\psfig@start{\typeout{EPSFIG - driver}}
  200. \def\psfig@end{\typeout{EPSFIG - driver}}
  201. \def\epsfig@gofer{\typeout{EPSFIG - driver}}
  202. \newcount\fig@driver
  203. \DeclareOption{ln03}{
  204. \typeout{WARNING! ****
  205.  no specials for LN03 epsfig}%
  206. }
  207. \DeclareOption{dvitops}{%
  208.  \use@psfigtrue
  209.  \def\psfig@start{}%
  210.  \def\psfig@end{\special{dvitops: import \@p@sfilefinal \space
  211.  \@p@swidth sp \space \@p@sheight sp \space fill}%
  212.  \if@clip \typeout{Clipping not supported}\fi
  213.  \if@angle \typeout{Rotating not supported}\fi}
  214.  \let\epsfig@gofer\psfig@end
  215. }
  216.  
  217. \DeclareOption{dvips}{%
  218.  \message{(dvips)}%
  219.  \use@psfigfalse
  220.  \def\psfig@start{
  221.     \message{ what are \@p@swidth, and \@p@sheight}%
  222.     \special{ps::[begin]  \@p@swidth \space \@p@sheight \space%
  223.         \@p@sbbllx \space \@p@sbblly \space%
  224.         \@p@sbburx \space \@p@sbbury \space%
  225.         startTexFig \space }%
  226.         \if@angle
  227.                 \special {ps:: \@p@sangle \space rotate \space}
  228.         \fi
  229.         \if@clip
  230.                 \if@verbose
  231.                         \typeout{(clipped to BB) }%
  232.                 \fi
  233.                 \special{ps:: doclip \space }%
  234.         \fi
  235.         \special{ps: plotfile \@p@sfilefinal \space }%
  236.         \special{ps::[end] endTexFig \space }%
  237.   }%
  238.   \def\psfig@end{}%
  239.   \def\epsfig@gofer{
  240.                    \if@clip
  241.                         \if@verbose
  242.                            \typeout{(clipped to BB)}%
  243.                         \fi
  244.                         \epsfclipon
  245.                   \fi
  246.                   \epsfsetgraph{\@p@sfilefinal}%
  247.  }
  248. }
  249.  
  250. \DeclareOption{emtex}{%
  251.  \use@psfigtrue
  252.  \fig@driver3
  253.  \Typeout{WARNING. You must have a .bb info file with the Bounding Box
  254.   of the pcx file}%
  255.  \def\psfig@start{}%
  256.  % when emtex imports a pcx file, it is *below* where we are now.
  257.  % so raise the box
  258.  \def\psfig@end{\typeout{pcx import of \@p@sfilefinal}%
  259.  \if@clip \typeout{Clipping not supported}\fi
  260.  \if@angle \typeout{Rotating not supported}\fi
  261.  \raisebox{\@p@srheight sp}{\special{em: graph \@p@sfilefinal}}}%
  262.  \def\epsfig@gofer{}%
  263. }
  264.  
  265. \DeclareOption{oztex}{%
  266.  \use@psfigtrue
  267.  \message{(OzTeX)}%
  268.  \def\psfig@start{}%
  269.  \def\psfig@end{%
  270.   \EPS@Width\@p@swidth
  271.   \EPS@Height\@p@sheight
  272.   \divide\EPS@Width by 65781  % convert sp to bp
  273.   \divide\EPS@Height by 65781
  274.   \special{epsf=\@p@sfilefinal
  275.   \space
  276.   width=\the\EPS@Width
  277.   \space
  278.   height=\the\EPS@Height
  279.  }%
  280.  \if@clip \typeout{Clipping not supported}\fi
  281.  \if@angle \typeout{Rotating not supported}\fi
  282.  }%
  283.  \let\epsfig@gofer\psfig@end 
  284. }
  285. \DeclareOption{textures}{%
  286.  \message{(Textures)}%
  287.  \use@psfigtrue
  288.  \def\psfig@end{
  289.  % what is scaling of picture
  290.          \EPS@Width=\@bbw  
  291.          \divide\EPS@Width by 1000
  292.          \EPS@xscale=\@p@swidth \divide \EPS@xscale by \EPS@Width
  293.          \EPS@Height=\@bbh  
  294.          \divide\EPS@Height by 1000
  295.          \EPS@yscale=\@p@sheight \divide \EPS@yscale by\EPS@Height
  296.  % take largest calculated scale
  297.   \ifnum\EPS@xscale>\EPS@yscale\EPS@xscale=\EPS@yscale\fi
  298.   \if@clip
  299.    \if@verbose
  300.       \typeout{(clipped to BB)}%
  301.    \fi
  302.    \epsfclipon
  303.  \fi
  304.  \special{illustration \@p@sfilefinal\space scaled \the\EPS@xscale}%
  305.  }%
  306.  \def\psfig@start{}%
  307. }
  308. \ProcessOptions
  309.  
  310. % copies of bits of LaTeX we need....
  311. \newdimen\ps@dimcent
  312. %
  313. % \fbox is defined in latex.tex; so if \fbox is undefined, assume that
  314. % we are not in LaTeX.
  315. % Perhaps this could be done better???
  316. \ifx\undefined\fbox
  317. % \fbox code from modified slightly from LaTeX
  318. \newdimen\fboxrule
  319. \newdimen\fboxsep
  320. \newdimen\ps@tempdima
  321. \newbox\ps@tempboxa
  322. \fboxsep = 0pt
  323. \fboxrule = .4pt
  324. \long\def\fbox#1{\leavevmode\setbox\ps@tempboxa\hbox{#1}\ps@tempdima\fboxrule
  325.     \advance\ps@tempdima \fboxsep \advance\ps@tempdima \dp\ps@tempboxa
  326.    \hbox{\lower \ps@tempdima\hbox
  327.   {\vbox{\hrule height \fboxrule
  328.           \hbox{\vrule width \fboxrule \hskip\fboxsep
  329.           \vbox{\vskip\fboxsep \box\ps@tempboxa\vskip\fboxsep}\hskip
  330.                  \fboxsep\vrule width \fboxrule}%
  331.                  \hrule height \fboxrule}}}}%
  332. \fi
  333. \ifx\@ifundefined\undefined
  334. \long\def\@ifundefined#1#2#3{\expandafter\ifx\csname
  335.   #1\endcsname\relax#2\else#3\fi}%
  336. \fi
  337. %
  338. \@ifundefined{typeout}%
  339. {\gdef\typeout#1{\immediate\write\sixt@@n{#1}}}%
  340. {\relax}%
  341. %
  342. %%% check to see if macros already loaded in (maybe some other file says
  343. %%% "\input epsfig") ...
  344. \@ifundefined{epsfig}{}{\typeout{EPSFIG --- already loaded}\endinput}%
  345. %
  346. %%%
  347. %%% we need Rokicki's EPSF macros anyway:
  348. %
  349. %   EPSF.TEX macro file:
  350. %   Written by Tomas Rokicki of Radical Eye Software, 29 Mar 1989.
  351. %   Revised by Don Knuth, 3 Jan 1990.
  352. %   Revised by Tomas Rokicki to accept bounding boxes with no
  353. %      space after the colon, 18 Jul 1990.
  354. %
  355. %   TeX macros to include an Encapsulated PostScript graphic.
  356. %   Works by finding the bounding box comment,
  357. %   calculating the correct scale values, and inserting a vbox
  358. %   of the appropriate size at the current position in the TeX document.
  359. %
  360. %   To use with the center environment of LaTeX, preface the \epsffile
  361. %   call with a \leavevmode.  (LaTeX should probably supply this itself
  362. %   for the center environment.)
  363. %
  364. %   To use, simply say
  365. %   \input epsf           % somewhere early on in your TeX file
  366. %   \epsfbox{filename.ps} % where you want to insert a vbox for a figure
  367. %
  368. %   Alternatively, you can type
  369. %
  370. %   \epsfbox[0 0 30 50]{filename.ps} % to supply your own BB
  371. %
  372. %   which will not read in the file, and will instead use the bounding
  373. %   box you specify.
  374. %
  375. %   The effect will be to typeset the figure as a TeX box, at the
  376. %   point of your \epsfbox command. By default, the graphic will have its
  377. %   `natural' width (namely the width of its bounding box, as described
  378. %   in filename.ps). The TeX box will have depth zero.
  379. %
  380. %   You can enlarge or reduce the figure by saying
  381. %     \epsfxsize=<dimen> \epsfbox{filename.ps}
  382. %   (or
  383. %     \epsfysize=<dimen> \epsfbox{filename.ps})
  384. %   instead. Then the width of the TeX box will be \epsfxsize and its
  385. %   height will be scaled proportionately (or the height will be
  386. %   \epsfysize and its width will be scaled proportiontally).  The
  387. %   width (and height) is restored to zero after each use.
  388. %
  389. %   A more general facility for sizing is available by defining the
  390. %   \epsfsize macro.    Normally you can redefine this macro
  391. %   to do almost anything.  The first parameter is the natural x size of
  392. %   the PostScript graphic, the second parameter is the natural y size
  393. %   of the PostScript graphic.  It must return the xsize to use, or 0 if
  394. %   natural scaling is to be used.  Common uses include:
  395. %
  396. %      \epsfxsize  % just leave the old value alone
  397. %      0pt         % use the natural sizes
  398. %      #1          % use the natural sizes
  399. %      \hsize      % scale to full width
  400. %      0.5#1       % scale to 50% of natural size
  401. %      \ifnum#1>\hsize\hsize\else#1\fi  % smaller of natural, hsize
  402. %
  403. %   If you want TeX to report the size of the figure (as a message
  404. %   on your terminal when it processes each figure), say `\epsfverbosetrue'.
  405. %
  406. \newread\epsffilein    % file to \read
  407. \newif\ifepsffileok    % continue looking for the bounding box?
  408. \newif\ifepsfbbfound   % success?
  409. \newif\ifepsfverbose   % report what you're making?
  410. \newif\ifepsfdraft     % use draft mode?
  411. \newdimen\epsfxsize    % horizontal size after scaling
  412. \newdimen\epsfysize    % vertical size after scaling
  413. \newdimen\epsftsize    % horizontal size before scaling
  414. \newdimen\epsfrsize    % vertical size before scaling
  415. \newdimen\epsftmp      % register for arithmetic manipulation
  416. \newdimen\pspoints     % conversion factor
  417. %
  418. \pspoints=1bp          % Adobe points are `big'
  419. \epsfxsize=0pt         % Default value, means `use natural size'
  420. \epsfysize=0pt         % ditto
  421. %
  422. \def\epsfbox#1{\global\def\epsfllx{72}\global\def\epsflly{72}%
  423.    \global\def\epsfurx{540}\global\def\epsfury{720}%
  424.    \def\lbracket{[}\def\testit{#1}\ifx\testit\lbracket
  425.    \let\next=\epsfgetlitbb\else\let\next=\epsfnormal\fi\next{#1}}%
  426. %
  427. \def\epsfgetlitbb#1#2 #3 #4 #5]#6{\epsfgrab #2 #3 #4 #5 .\\%
  428.    \epsfsetgraph{#6}}%
  429. %
  430. \def\epsfnormal#1{\epsfgetbb{#1}\epsfsetgraph{#1}}%
  431. %
  432. \def\epsfgetbb#1{%
  433. %
  434. %   The first thing we need to do is to open the
  435. %   PostScript file, if possible.
  436. %
  437. \openin\epsffilein=#1
  438. \ifeof\epsffilein\errmessage{I couldn't open #1, will ignore it}\else
  439. %
  440. %   Okay, we got it. Now we'll scan lines until we find one that doesn't
  441. %   start with %. We're looking for the bounding box comment.
  442. %
  443.    {\epsffileoktrue \chardef\other=12
  444.     \def\do##1{\catcode`##1=\other}\dospecials \catcode`\ =10
  445.     \loop
  446.        \read\epsffilein to \epsffileline
  447.        \ifeof\epsffilein\epsffileokfalse\else
  448. %
  449. %   We check to see if the first character is a % sign;
  450. %   if not, we stop reading (unless the line was entirely blank);
  451. %   if so, we look further and stop only if the line begins with
  452. %   `%%BoundingBox:'.
  453. %
  454.           \expandafter\epsfaux\epsffileline:. \\%
  455.        \fi
  456.    \ifepsffileok\repeat
  457.    \ifepsfbbfound\else
  458.     \ifepsfverbose\message{No bounding box comment in #1; using defaults}\fi\fi
  459.    }\closein\epsffilein\fi}%
  460. %
  461. %   Now we have to calculate the scale and offset values to use.
  462. %   First we compute the natural sizes.
  463. %
  464. \def\epsfclipon{\def\epsfclipstring{ clip}}%
  465. \def\epsfclipoff{\def\epsfclipstring{\ifepsfdraft\space clip\fi}}%
  466. \epsfclipoff
  467. %
  468. \def\epsfsetgraph#1{%
  469.    \epsfrsize=\epsfury\pspoints
  470.    \advance\epsfrsize by-\epsflly\pspoints
  471.    \epsftsize=\epsfurx\pspoints
  472.    \advance\epsftsize by-\epsfllx\pspoints
  473. %
  474. %   If `epsfxsize' is 0, we default to the natural size of the picture.
  475. %   Otherwise we scale the graph to be \epsfxsize wide.
  476. %
  477.    \epsfxsize\epsfsize\epsftsize\epsfrsize
  478.    \ifnum\epsfxsize=0 \ifnum\epsfysize=0
  479.       \epsfxsize=\epsftsize \epsfysize=\epsfrsize
  480.       \epsfrsize=0pt
  481. %
  482. %   We have a sticky problem here:  TeX doesn't do floating point arithmetic!
  483. %   Our goal is to compute y = rx/t. The following loop does this reasonably
  484. %   fast, with an error of at most about 16 sp (about 1/4000 pt).
  485. % 
  486.      \else\epsftmp=\epsftsize \divide\epsftmp\epsfrsize
  487.        \epsfxsize=\epsfysize \multiply\epsfxsize\epsftmp
  488.        \multiply\epsftmp\epsfrsize \advance\epsftsize-\epsftmp
  489.        \epsftmp=\epsfysize
  490.        \loop \advance\epsftsize\epsftsize \divide\epsftmp 2
  491.        \ifnum\epsftmp>0
  492.           \ifnum\epsftsize<\epsfrsize\else
  493.              \advance\epsftsize-\epsfrsize \advance\epsfxsize\epsftmp \fi
  494.        \repeat
  495.        \epsfrsize=0pt
  496.      \fi
  497.    \else \ifnum\epsfysize=0
  498.      \epsftmp=\epsfrsize \divide\epsftmp\epsftsize
  499.      \epsfysize=\epsfxsize \multiply\epsfysize\epsftmp   
  500.      \multiply\epsftmp\epsftsize \advance\epsfrsize-\epsftmp
  501.      \epsftmp=\epsfxsize
  502.      \loop \advance\epsfrsize\epsfrsize \divide\epsftmp 2
  503.      \ifnum\epsftmp>0
  504.         \ifnum\epsfrsize<\epsftsize\else
  505.            \advance\epsfrsize-\epsftsize \advance\epsfysize\epsftmp \fi
  506.      \repeat
  507.      \epsfrsize=0pt
  508.     \else
  509.      \epsfrsize=\epsfysize
  510.     \fi
  511.    \fi
  512. %
  513. %  Finally, we make the vbox and stick in a \special that dvips can parse.
  514. %
  515.    \ifepsfverbose\message{#1: width=\the\epsfxsize, height=\the\epsfysize}\fi
  516.    \epsftmp=10\epsfxsize \divide\epsftmp\pspoints
  517.    \vbox to\epsfysize{\vfil\hbox to\epsfxsize{%
  518.       \ifnum\epsfrsize=0\relax
  519.         \special{PSfile=\ifepsfdraft psdraft.ps\else#1\fi\space
  520.              llx=\epsfllx\space lly=\epsflly\space
  521.              urx=\epsfurx\space ury=\epsfury\space rwi=\number\epsftmp
  522.              \epsfclipstring}%
  523.       \else
  524.         \epsfrsize=10\epsfysize \divide\epsfrsize\pspoints
  525.         \special{PSfile=\ifepsfdraft psdraft.ps\else#1\fi\space
  526.              llx=\epsfllx\space lly=\epsflly\space
  527.              urx=\epsfurx\space ury=\epsfury\space rwi=\number\epsftmp\space
  528.              rhi=\number\epsfrsize \epsfclipstring}%
  529.       \fi
  530.       \hfil}}%
  531. \global\epsfxsize=0pt\global\epsfysize=0pt}%
  532. %
  533. %   We still need to define the tricky \epsfaux macro. This requires
  534. %   a couple of magic constants for comparison purposes.
  535. %
  536. {\catcode`\%=12 \global\let\epsfpercent=%\global\def\epsfbblit{%BoundingBox}}%
  537. %
  538. %   So we're ready to check for `%BoundingBox:' and to grab the
  539. %   values if they are found.
  540. %
  541. \long\def\epsfaux#1#2:#3\\{\ifx#1\epsfpercent
  542.    \def\testit{#2}\ifx\testit\epsfbblit
  543.       \epsfgrab #3 . . . \\%
  544.       \epsffileokfalse
  545.       \global\epsfbbfoundtrue
  546.    \fi\else\ifx#1\par\else\epsffileokfalse\fi\fi}%
  547. %
  548. %   Here we grab the values and stuff them in the appropriate definitions.
  549. %
  550. \def\epsfempty{}%
  551. \def\epsfgrab #1 #2 #3 #4 #5\\{%
  552. \global\def\epsfllx{#1}\ifx\epsfllx\epsfempty
  553.       \epsfgrab #2 #3 #4 #5 .\\\else
  554.    \global\def\epsflly{#2}%
  555.    \global\def\epsfurx{#3}\global\def\epsfury{#4}\fi}%
  556. %
  557. %   We default the epsfsize macro.
  558. %
  559. \def\epsfsize#1#2{\epsfxsize}
  560. %
  561. %   Finally, another definition for compatibility with older macros.
  562. %
  563. \let\epsffile=\epsfbox
  564.  
  565. %
  566. %% SPQR 12.91 handling of errors using standard LaTeX error
  567. %% mechanism. In case we are plain TeX we first define the
  568. %% error routines...
  569. \ifx\undefined\@latexerr
  570.         \newlinechar`\^^J
  571.         \def\@spaces{\space\space\space\space}%
  572.         \def\@latexerr#1#2{%
  573.         \edef\@tempc{#2}\expandafter\errhelp\expandafter{\@tempc}%
  574.         \typeout{Error. \space see a manual for explanation.^^J
  575.          \space\@spaces\@spaces\@spaces Type \space H <return> \space for
  576.          immediate help.}\errmessage{#1}}%
  577. \fi
  578. %------------------------
  579. %% a couple of LaTeX error messages
  580. \def\@whattodo{You tried to include a PostScript figure which
  581. cannot be found^^JIf you press return to carry on anyway,^^J
  582. The failed name will be printed in place of the figure.^^J
  583. or type X to quit}%
  584. \def\@whattodobb{You tried to include a PostScript figure which
  585. has no^^Jbounding box, and you supplied none.^^J
  586. If you press return to carry on anyway,^^J
  587. The failed name will be printed in place of the figure.^^J
  588. or type X to quit}%
  589. %------------------------
  590. %
  591. %------------------------------------------------------------------------
  592. %------------------------------------------------------------------------
  593. %%% @psdo control structure -- similar to Latex @for.
  594. %%% I redefined these with different names so that psfig can
  595. %%% be used with TeX as well as LaTeX, and so that it will not
  596. %%% be vunerable to future changes in LaTeX's internal
  597. %%% control structure,
  598. %
  599. \def\@nnil{\@nil}%
  600. \def\@empty{}%
  601. \def\@psdonoop#1\@@#2#3{}%
  602. \def\@psdo#1:=#2\do#3{\edef\@psdotmp{#2}\ifx\@psdotmp\@empty \else
  603.     \expandafter\@psdoloop#2,\@nil,\@nil\@@#1{#3}\fi}%
  604. \def\@psdoloop#1,#2,#3\@@#4#5{\def#4{#1}\ifx #4\@nnil \else
  605.        #5\def#4{#2}\ifx #4\@nnil \else#5\@ipsdoloop #3\@@#4{#5}\fi\fi}%
  606. \def\@ipsdoloop#1,#2\@@#3#4{\def#3{#1}\ifx #3\@nnil
  607.        \let\@nextwhile=\@psdonoop \else
  608.       #4\relax\let\@nextwhile=\@ipsdoloop\fi\@nextwhile#2\@@#3{#4}}%
  609. \def\@tpsdo#1:=#2\do#3{\xdef\@psdotmp{#2}\ifx\@psdotmp\@empty \else
  610.     \@tpsdoloop#2\@nil\@nil\@@#1{#3}\fi}%
  611. \def\@tpsdoloop#1#2\@@#3#4{\def#3{#1}\ifx #3\@nnil
  612.        \let\@nextwhile=\@psdonoop \else
  613.       #4\relax\let\@nextwhile=\@tpsdoloop\fi\@nextwhile#2\@@#3{#4}}%
  614. %%%
  615. %
  616. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  617. %%% file reading stuff from epsf.tex
  618. %%%   EPSF.TEX macro file:
  619. %%%   Written by Tomas Rokicki of Radical Eye Software, 29 Mar 1989.
  620. %%%   Revised by Don Knuth, 3 Jan 1990.
  621. %%%   Revised by Tomas Rokicki to accept bounding boxes with no
  622. %%%      space after the colon, 18 Jul 1990.
  623. %%%   Portions modified/removed for use in PSFIG package by
  624. %%%      J. Daniel Smith, 9 October 1990.
  625. %%%   Just the bit which knows about (atend) as a BoundingBox
  626. %
  627. %%%    hacked back a bit by SPQR 12/91
  628. %
  629. \long\def\epsfaux#1#2:#3\\{\ifx#1\epsfpercent
  630.    \def\testit{#2}\ifx\testit\epsfbblit
  631.         \@atendfalse
  632.         \epsf@atend #3 . \\%
  633.         \if@atend
  634.            \if@verbose
  635.                 \typeout{epsfig: found `(atend)'; continuing search}%
  636.            \fi
  637.         \else
  638.                 \epsfgrab #3 . . . \\%
  639.                 \epsffileokfalse\global\no@bbfalse
  640.                 \global\epsfbbfoundtrue
  641.         \fi
  642.    \fi\fi}%
  643. %
  644. %%% Determine if the stuff following the %%BoundingBox is `(atend)'
  645. %%% J. Daniel Smith.  Copied from \epsf@grab above.
  646. %
  647. \def\epsf@atendlit{(atend)}
  648. %
  649. \def\epsf@atend #1 #2 #3\\{%
  650.    \def\epsf@tmp{#1}\ifx\epsf@tmp\empty
  651.       \epsf@atend #2 #3 .\\\else
  652.    \ifx\epsf@tmp\epsf@atendlit\@atendtrue\fi\fi}%
  653.  
  654.  
  655. %%% End of file reading stuff from epsf.tex
  656. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  657.  
  658. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  659. %%% trigonometry stuff from "trig.tex"
  660. \chardef\trig@letter = 11
  661. \chardef\other = 12
  662.  
  663. \newif\ifdebug %%% turn me on to see TeX hard at work ...
  664. \newif\ifc@mpute %%% don't need to compute some values
  665. \newif\if@atend
  666. \c@mputetrue % but assume that we do
  667.  
  668. \let\then = \relax
  669. \def\r@dian{pt }%
  670. \let\r@dians = \r@dian
  671. \let\dimensionless@nit = \r@dian
  672. \let\dimensionless@nits = \dimensionless@nit
  673. \def\internal@nit{sp }%
  674. \let\internal@nits = \internal@nit
  675. \newif\ifstillc@nverging
  676. \def \Mess@ge #1{\ifdebug \then \message {#1} \fi}%
  677.  
  678. { %%% Things that need abnormal catcodes %%%
  679.         \catcode `\@ = \trig@letter
  680.         \gdef \nodimen {\expandafter \n@dimen \the \dimen}%
  681.         \gdef \term #1 #2 #3%
  682.                {\edef \t@ {\the #1}%%% freeze parameter 1 (count, by value)
  683.                 \edef \t@@ {\expandafter \n@dimen \the #2\r@dian}%
  684.                                    %%% freeze parameter 2 (dimen, by value)
  685.                 \t@rm {\t@} {\t@@} {#3}%
  686.                }%
  687.         \gdef \t@rm #1 #2 #3%
  688.                {{%
  689.                 \count 0 = 0
  690.                 \dimen 0 = 1 \dimensionless@nit
  691.                 \dimen 2 = #2\relax
  692.                 \Mess@ge {Calculating term #1 of \nodimen 2}%
  693.                 \loop
  694.                 \ifnum  \count 0 < #1
  695.                 \then   \advance \count 0 by 1
  696.                         \Mess@ge {Iteration \the \count 0 \space}%
  697.                         \Multiply \dimen 0 by {\dimen 2}%
  698.                         \Mess@ge {After multiplication, term = \nodimen 0}%
  699.                         \Divide \dimen 0 by {\count 0}%
  700.                         \Mess@ge {After division, term = \nodimen 0}%
  701.                 \repeat
  702.                 \Mess@ge {Final value for term #1 of
  703.                                 \nodimen 2 \space is \nodimen 0}%
  704.                 \xdef \Term {#3 = \nodimen 0 \r@dians}%
  705.                 \aftergroup \Term
  706.                }}%
  707.         \catcode `\p = \other
  708.         \catcode `\t = \other
  709.         \gdef \n@dimen #1pt{#1} %%% throw away the ``pt''
  710. }%
  711.  
  712. \def \Divide #1by #2{\divide #1 by #2} %%% just a synonym
  713.  
  714. \def \Multiply #1by #2%%% allows division of a dimen by a dimen
  715.        {{%%% should really freeze parameter 2 (dimen, passed by value)
  716.         \count 0 = #1\relax
  717.         \count 2 = #2\relax
  718.         \count 4 = 65536
  719.         \Mess@ge {Before scaling, count 0 = \the \count 0 \space and
  720.                         count 2 = \the \count 2}%
  721.         \ifnum  \count 0 > 32767 %%% do our best to avoid overflow
  722.         \then   \divide \count 0 by 4
  723.                 \divide \count 4 by 4
  724.         \else   \ifnum  \count 0 < -32767
  725.                 \then   \divide \count 0 by 4
  726.                         \divide \count 4 by 4
  727.                 \else
  728.                 \fi
  729.         \fi
  730.         \ifnum  \count 2 > 32767 %%% while retaining reasonable accuracy
  731.         \then   \divide \count 2 by 4
  732.                 \divide \count 4 by 4
  733.         \else   \ifnum  \count 2 < -32767
  734.                 \then   \divide \count 2 by 4
  735.                         \divide \count 4 by 4
  736.                 \else
  737.                 \fi
  738.         \fi
  739.         \multiply \count 0 by \count 2
  740.         \divide \count 0 by \count 4
  741.         \xdef \product {#1 = \the \count 0 \internal@nits}%
  742.         \aftergroup \product
  743.        }}%
  744.  
  745. \def\r@duce{\ifdim\dimen0 > 90\r@dian \then   % sin(x) = sin(180-x)
  746.                 \multiply\dimen0 by -1
  747.                 \advance\dimen0 by 180\r@dian
  748.                 \r@duce
  749.             \else \ifdim\dimen0 < -90\r@dian \then  % sin(x) = sin(360+x)
  750.                 \advance\dimen0 by 360\r@dian
  751.                 \r@duce
  752.                 \fi
  753.             \fi}%
  754.  
  755. \def\Sine#1%
  756.        {{%
  757.         \dimen 0 = #1 \r@dian
  758.         \r@duce
  759.         \ifdim\dimen0 = -90\r@dian \then
  760.            \dimen4 = -1\r@dian
  761.            \c@mputefalse
  762.         \fi
  763.         \ifdim\dimen0 = 90\r@dian \then
  764.            \dimen4 = 1\r@dian
  765.            \c@mputefalse
  766.         \fi
  767.         \ifdim\dimen0 = 0\r@dian \then
  768.            \dimen4 = 0\r@dian
  769.            \c@mputefalse
  770.         \fi
  771. %
  772.         \ifc@mpute \then
  773.                 % convert degrees to radians
  774.                 \divide\dimen0 by 180
  775.                 \dimen0=3.141592654\dimen0
  776. %
  777.                 \dimen 2 = 3.1415926535897963\r@dian %%% a well-known constant
  778.                 \divide\dimen 2 by 2 %%% we only deal with -pi/2 : pi/2
  779.                 \Mess@ge {Sin: calculating Sin of \nodimen 0}%
  780.                 \count 0 = 1 %%% see power-series expansion for sine
  781.                 \dimen 2 = 1 \r@dian %%% ditto
  782.                 \dimen 4 = 0 \r@dian %%% ditto
  783.                 \loop
  784.                         \ifnum  \dimen 2 = 0 %%% then we've done
  785.                         \then   \stillc@nvergingfalse
  786.                         \else   \stillc@nvergingtrue
  787.                         \fi
  788.                         \ifstillc@nverging %%% then calculate next term
  789.                         \then   \term {\count 0} {\dimen 0} {\dimen 2}%
  790.                                 \advance \count 0 by 2
  791.                                 \count 2 = \count 0
  792.                                 \divide \count 2 by 2
  793.                                 \ifodd  \count 2 %%% signs alternate
  794.                                 \then   \advance \dimen 4 by \dimen 2
  795.                                 \else   \advance \dimen 4 by -\dimen 2
  796.                                 \fi
  797.                 \repeat
  798.         \fi
  799.                         \xdef \sine {\nodimen 4}%
  800.        }}%
  801.  
  802. %%% Now the Cosine can be calculated easily by calling \Sine:
  803. %%%  cos(x) = sin(90-x)
  804. \def\Cosine#1{\ifx\sine\UnDefined\edef\Savesine{\relax}\else
  805.                              \edef\Savesine{\sine}\fi
  806.         {\dimen0=#1\r@dian\multiply\dimen0 by -1
  807.          \advance\dimen0 by 90\r@dian
  808.          \Sine{\nodimen 0}%
  809.          \xdef\cosine{\sine}%
  810.          \xdef\sine{\Savesine}}}
  811. %%% end of trig stuff
  812. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  813. %
  814. \def\psdraft{\def\@psdraft{0}}%
  815. \def\psfull{\def\@psdraft{1}}%
  816. \psfull
  817. \newif\if@compress
  818. \def\pscompress{\@compresstrue}
  819. \def\psnocompress{\@compressfalse}
  820. \@compressfalse
  821. \newif\if@scalefirst
  822. \def\psscalefirst{\@scalefirsttrue}%
  823. \def\psrotatefirst{\@scalefirstfalse}%
  824. \psrotatefirst
  825. %
  826. \newif\if@draftbox
  827. \def\psnodraftbox{\@draftboxfalse}%
  828. \@draftboxtrue
  829. %
  830. \newif\if@noisy
  831. \@noisyfalse
  832. \newif\ifno@bb
  833. %%% These are for the option list.
  834. %%% A specification of the form a = b maps to calling \@p@@sa{b}%
  835. \newif\if@bbllx
  836. \newif\if@bblly
  837. \newif\if@bburx
  838. \newif\if@bbury
  839. \newif\if@height
  840. \newif\if@width
  841. \newif\if@rheight
  842. \newif\if@rwidth
  843. \newif\if@angle
  844. \newif\if@clip
  845. \newif\if@verbose
  846. \newif\if@prologfile
  847. \def\@p@@sprolog#1{\@prologfiletrue\def\@prologfileval{#1}}%
  848. \def\@p@@sclip#1{\@cliptrue}%
  849. %
  850. \newif\ifepsfig@dos  % only single suffix possible
  851. \def\epsfigdos{\epsfig@dostrue}%
  852. \epsfig@dosfalse
  853. %
  854. \def\ParseName#1{\expandafter\@Parse#1}%
  855. \def\@Parse#1.#2:{\gdef\BaseName{#1}\gdef\FileType{#2}}%
  856.  
  857. \def\@p@@sfile#1{%
  858.   \ifepsfig@dos
  859.      \ParseName{#1:}%
  860.   \else
  861.      \gdef\BaseName{#1}\gdef\FileType{}%
  862.   \fi
  863.   \def\@p@sfile{NO FILE: #1}%
  864.   \def\@p@sfilefinal{NO FILE: #1}%
  865.   \openin1=#1
  866.   \ifeof1\closein1\openin1=\BaseName.bb
  867.     \ifeof1\closein1
  868.       \if@bbllx                 % No postscript file but bb given explicitly.
  869.         \if@bblly\if@bburx\if@bbury
  870.           \def\@p@sfile{#1}%
  871.           \def\@p@sfilefinal{#1}%
  872.         \fi\fi\fi
  873.       \else                     % No bounding box found.
  874.         \@latexerr{ERROR. PostScript file #1 not found}\@whattodo
  875.         \@p@@sbbllx{100bp}%
  876.         \@p@@sbblly{100bp}%
  877.         \@p@@sbburx{200bp}%
  878.         \@p@@sbbury{200bp}%
  879.         \psdraft
  880.       \fi
  881.     \else                       % Postscript file is compressed.
  882.       \closein1%
  883.       \edef\@p@sfile{\BaseName.bb}%
  884.       \typeout{using BB from \@p@sfile}%
  885.       \ifnum\fig@driver=3
  886.         \edef\@p@sfilefinal{\BaseName.pcx}%
  887.       \else
  888.         \ifepsfig@dos
  889.           \edef\@p@sfilefinal{"`gunzip -c `texfind \BaseName.{z,Z,gz}"}%
  890.         \else
  891.           \edef\@p@sfilefinal{"`epsfig \if@compress-c \fi#1"}%          
  892.         \fi
  893.       \fi
  894.     \fi
  895.   \else\closein1                % Postscript file is not compressed.
  896.     \edef\@p@sfile{#1}%
  897.     \if@compress  
  898.       \edef\@p@sfilefinal{"`epsfig -c #1"}%
  899.     \else
  900.       \edef\@p@sfilefinal{#1}%
  901.     \fi
  902.   \fi%
  903. }
  904.  
  905. % alternative syntax: figure=
  906. \let\@p@@sfigure\@p@@sfile
  907. %
  908. \def\@p@@sbbllx#1{%
  909.                                             \@bbllxtrue
  910.                 \ps@dimcent=#1
  911.                 \edef\@p@sbbllx{\number\ps@dimcent}%
  912.                 \divide\ps@dimcent by65536
  913.                 \global\edef\epsfllx{\number\ps@dimcent}%
  914. }%
  915. \def\@p@@sbblly#1{%
  916.                 \@bbllytrue
  917.                 \ps@dimcent=#1
  918.                 \edef\@p@sbblly{\number\ps@dimcent}%
  919.                 \divide\ps@dimcent by65536
  920.                 \global\edef\epsflly{\number\ps@dimcent}%
  921. }%
  922. \def\@p@@sbburx#1{%
  923.                 \@bburxtrue
  924.                 \ps@dimcent=#1
  925.                 \edef\@p@sbburx{\number\ps@dimcent}%
  926.                 \divide\ps@dimcent by65536
  927.                 \global\edef\epsfurx{\number\ps@dimcent}%
  928. }%
  929. \def\@p@@sbbury#1{%
  930.                 \@bburytrue
  931.                 \ps@dimcent=#1
  932.                 \edef\@p@sbbury{\number\ps@dimcent}%
  933.                 \divide\ps@dimcent by65536
  934.                 \global\edef\epsfury{\number\ps@dimcent}%
  935. }%
  936. \def\@p@@sheight#1{%
  937.                 \@heighttrue
  938.                 \global\epsfysize=#1
  939.                 \ps@dimcent=#1
  940.                 \edef\@p@sheight{\number\ps@dimcent}%
  941. }%
  942. \def\@p@@swidth#1{%
  943.                 \@widthtrue
  944.                 \global\epsfxsize=#1
  945.                 \ps@dimcent=#1
  946.                 \edef\@p@swidth{\number\ps@dimcent}% 
  947. }%
  948. \def\@p@@srheight#1{%
  949.                 \@rheighttrue\use@psfigtrue
  950.                 \ps@dimcent=#1
  951.                 \edef\@p@srheight{\number\ps@dimcent}%
  952. }%
  953. \def\@p@@srwidth#1{%
  954.                 \@rwidthtrue\use@psfigtrue
  955.                 \ps@dimcent=#1
  956.                 \edef\@p@srwidth{\number\ps@dimcent}%
  957. }%
  958. \def\@p@@sangle#1{%
  959.                 \use@psfigtrue
  960.                 \@angletrue
  961.                 \edef\@p@sangle{#1}%
  962. }%
  963. \def\@p@@ssilent#1{%
  964.                 \@verbosefalse
  965. }%
  966. \def\@p@@snoisy#1{%
  967.                 \@verbosetrue
  968. }%
  969. \def\@cs@name#1{\csname #1\endcsname}%
  970. \def\@setparms#1=#2,{\@cs@name{@p@@s#1}{#2}}%
  971. %
  972. %%% initialize the defaults (size the size of the figure)
  973. %
  974. \def\ps@init@parms{%
  975.                 \@bbllxfalse \@bbllyfalse
  976.                 \@bburxfalse \@bburyfalse
  977.                 \@heightfalse \@widthfalse
  978.                 \@rheightfalse \@rwidthfalse
  979.                 \def\@p@sbbllx{}\def\@p@sbblly{}%
  980.                 \def\@p@sbburx{}\def\@p@sbbury{}%
  981.                 \def\@p@sheight{}\def\@p@swidth{}%
  982.                 \def\@p@srheight{}\def\@p@srwidth{}%
  983.                 \def\@p@sangle{0}%
  984.                 \def\@p@sfile{}%
  985.                 \@prologfilefalse
  986.                 \def\@sc{}%
  987.                 \if@noisy
  988.                         \@verbosetrue
  989.                 \else
  990.                         \@verbosefalse
  991.                 \fi
  992.                 \@clipfalse
  993. }%
  994. %
  995. %%% Go through the options setting things up.
  996. %
  997. \def\parse@ps@parms#1{%
  998.                 \@psdo\@psfiga:=#1\do
  999.                    {\expandafter\@setparms\@psfiga,}%
  1000. \if@prologfile
  1001. \special{header=\@prologfileval}%
  1002. \fi
  1003. }%
  1004. %
  1005. %%% Compute bb height and width
  1006. %
  1007. \def\bb@missing{%
  1008.         \if@verbose
  1009.             \typeout{psfig: searching \@p@sfile \space  for bounding box}%
  1010.         \fi
  1011.         \epsfgetbb{\@p@sfile}%
  1012.         \ifepsfbbfound
  1013.             \ps@dimcent=\epsfllx bp\edef\@p@sbbllx{\number\ps@dimcent}%
  1014.             \ps@dimcent=\epsflly bp\edef\@p@sbblly{\number\ps@dimcent}%
  1015.             \ps@dimcent=\epsfurx bp\edef\@p@sbburx{\number\ps@dimcent}%
  1016.             \ps@dimcent=\epsfury bp\edef\@p@sbbury{\number\ps@dimcent}%
  1017.         \else
  1018.             \epsfbbfoundfalse
  1019.         \fi
  1020. }
  1021. %
  1022. % rotate point (#1,#2) about (0,0).
  1023. % The sine and cosine of the angle are already stored in \sine and
  1024. % \cosine.  The result is placed in (\p@intvaluex, \p@intvaluey).
  1025. \newdimen\p@intvaluex
  1026. \newdimen\p@intvaluey
  1027. \def\rotate@#1#2{{\dimen0=#1 sp\dimen1=#2 sp
  1028. %               calculate x' = x \cos\theta - y \sin\theta
  1029.                   \global\p@intvaluex=\cosine\dimen0
  1030.                   \dimen3=\sine\dimen1
  1031.                   \global\advance\p@intvaluex by -\dimen3
  1032. %               calculate y' = x \sin\theta + y \cos\theta
  1033.                   \global\p@intvaluey=\sine\dimen0
  1034.                   \dimen3=\cosine\dimen1
  1035.                   \global\advance\p@intvaluey by \dimen3
  1036.                   }}%
  1037. \def\compute@bb{%
  1038.                 \epsfbbfoundfalse
  1039.                 \if@bbllx\epsfbbfoundtrue\fi
  1040.                 \if@bblly\epsfbbfoundtrue\fi
  1041.                 \if@bburx\epsfbbfoundtrue\fi
  1042.                 \if@bbury\epsfbbfoundtrue\fi
  1043.                 \ifepsfbbfound\else\bb@missing\fi
  1044.                 \ifepsfbbfound\else
  1045.                 \@latexerr{ERROR. cannot locate BoundingBox}\@whattodobb
  1046.                         \@p@@sbbllx{100bp}%
  1047.                         \@p@@sbblly{100bp}%
  1048.                         \@p@@sbburx{200bp}%
  1049.                         \@p@@sbbury{200bp}%
  1050.                         \no@bbtrue
  1051.                         \psdraft
  1052.                 \fi
  1053.                 %
  1054. %
  1055. % store height/width of original (unrotated) bounding box
  1056.                 \count203=\@p@sbburx
  1057.                 \count204=\@p@sbbury
  1058.                 \advance\count203 by -\@p@sbbllx
  1059.                 \advance\count204 by -\@p@sbblly
  1060.                 \edef\ps@bbw{\number\count203}%
  1061.                 \edef\ps@bbh{\number\count204}%
  1062.                  \edef\@bbw{\number\count203}%
  1063.                 \edef\@bbh{\number\count204}%
  1064.                \if@angle
  1065.                         \Sine{\@p@sangle}\Cosine{\@p@sangle}%
  1066.  
  1067. {\ps@dimcent=\maxdimen\xdef\r@p@sbbllx{\number\ps@dimcent}%
  1068.  
  1069. \xdef\r@p@sbblly{\number\ps@dimcent}%
  1070.  
  1071. \xdef\r@p@sbburx{-\number\ps@dimcent}%
  1072.  
  1073. \xdef\r@p@sbbury{-\number\ps@dimcent}}%
  1074. %
  1075. % Need to rotate all four points and take the X-Y extremes of the new
  1076. % points as the new bounding box.
  1077.                         \def\minmaxtest{%
  1078.                            \ifnum\number\p@intvaluex<\r@p@sbbllx
  1079.                               \xdef\r@p@sbbllx{\number\p@intvaluex}\fi
  1080.                            \ifnum\number\p@intvaluex>\r@p@sbburx
  1081.                               \xdef\r@p@sbburx{\number\p@intvaluex}\fi
  1082.                            \ifnum\number\p@intvaluey<\r@p@sbblly
  1083.                               \xdef\r@p@sbblly{\number\p@intvaluey}\fi
  1084.                            \ifnum\number\p@intvaluey>\r@p@sbbury
  1085.                               \xdef\r@p@sbbury{\number\p@intvaluey}\fi
  1086.                            }%
  1087. %                       lower left
  1088.                         \rotate@{\@p@sbbllx}{\@p@sbblly}%
  1089.                         \minmaxtest
  1090. %                       upper left
  1091.                         \rotate@{\@p@sbbllx}{\@p@sbbury}%
  1092.                         \minmaxtest
  1093. %                       lower right
  1094.                         \rotate@{\@p@sbburx}{\@p@sbblly}%
  1095.                         \minmaxtest
  1096. %                       upper right
  1097.                         \rotate@{\@p@sbburx}{\@p@sbbury}%
  1098.                         \minmaxtest
  1099.  
  1100. \edef\@p@sbbllx{\r@p@sbbllx}\edef\@p@sbblly{\r@p@sbblly}%
  1101.  
  1102. \edef\@p@sbburx{\r@p@sbburx}\edef\@p@sbbury{\r@p@sbbury}%
  1103.                 \fi
  1104.                 \count203=\@p@sbburx
  1105.                 \count204=\@p@sbbury
  1106.                 \advance\count203 by -\@p@sbbllx
  1107.                 \advance\count204 by -\@p@sbblly
  1108.                 \edef\@bbw{\number\count203}%
  1109.                 \edef\@bbh{\number\count204}%
  1110. }%
  1111. %
  1112. % \in@hundreds performs #1 * (#2 / #3) correct to the hundreds,
  1113. %       then leaves the result in @result
  1114. %
  1115. \def\in@hundreds#1#2#3{\count240=#2 \count241=#3
  1116.                      \count100=\count240        % 100 is first digit #2/#3
  1117.                      \divide\count100 by \count241
  1118.                      \count101=\count100
  1119.                      \multiply\count101 by \count241
  1120.                      \advance\count240 by -\count101
  1121.                      \multiply\count240 by 10
  1122.                      \count101=\count240        %101 is second digit of #2/#3
  1123.                      \divide\count101 by \count241
  1124.                      \count102=\count101
  1125.                      \multiply\count102 by \count241
  1126.                      \advance\count240 by -\count102
  1127.                      \multiply\count240 by 10
  1128.                      \count102=\count240        % 102 is the third digit
  1129.                      \divide\count102 by \count241
  1130.                      \count200=#1\count205=0
  1131.                      \count201=\count200
  1132.                         \multiply\count201 by \count100
  1133.                         \advance\count205 by \count201
  1134.                      \count201=\count200
  1135.                         \divide\count201 by 10
  1136.                         \multiply\count201 by \count101
  1137.                         \advance\count205 by \count201
  1138.                         %
  1139.                      \count201=\count200
  1140.                         \divide\count201 by 100
  1141.                         \multiply\count201 by \count102
  1142.                         \advance\count205 by \count201
  1143.                         %
  1144.                      \edef\@result{\number\count205}%
  1145. }%
  1146. \def\compute@wfromh{%
  1147.                 % computing : width = height * (bbw / bbh)
  1148.                 \in@hundreds{\@p@sheight}{\@bbw}{\@bbh}%
  1149.                 \edef\@p@swidth{\@result}%
  1150. }%
  1151. \def\compute@hfromw{%
  1152.                 % computing : height = width * (bbh / bbw)
  1153.                 \in@hundreds{\@p@swidth}{\@bbh}{\@bbw}%
  1154.                 \edef\@p@sheight{\@result}%
  1155. }%
  1156. \def\compute@handw{%
  1157.                 \if@height
  1158.                         \if@width
  1159.                         \else
  1160.                                 \compute@wfromh
  1161.                         \fi
  1162.                 \else
  1163.                         \if@width
  1164.                                 \compute@hfromw
  1165.                         \else
  1166.                                 \edef\@p@sheight{\@bbh}%
  1167.                                 \edef\@p@swidth{\@bbw}%
  1168.                         \fi
  1169.                 \fi
  1170. }%
  1171. \def\compute@resv{%
  1172.                 \if@rheight \else \edef\@p@srheight{\@p@sheight} \fi
  1173.                 \if@rwidth \else \edef\@p@srwidth{\@p@swidth} \fi
  1174. }%
  1175. %
  1176. % Compute any missing values
  1177. \def\compute@sizes{%
  1178.         \if@scalefirst\if@angle
  1179. % at this point the bounding box has been adjsuted correctly for
  1180. % rotation.  PSFIG does all of its scaling using \@bbh and \@bbw.  If
  1181. % a width= or height= was specified along with \psscalefirst, then the
  1182. % width=/height= value needs to be adjusted to match the new (rotated)
  1183. % bounding box size (specifed in \@bbw and \@bbh).
  1184. %    \ps@bbw       width=
  1185. %    -------  =  ----------
  1186. %    \@bbw       new width=
  1187. % so `new width=' = (width= * \@bbw) / \ps@bbw; where \ps@bbw is the
  1188. % width of the original (unrotated) bounding box.
  1189.         \if@width
  1190.            \in@hundreds{\@p@swidth}{\@bbw}{\ps@bbw}%
  1191.            \edef\@p@swidth{\@result}%
  1192.         \fi
  1193.         \if@height
  1194.            \in@hundreds{\@p@sheight}{\@bbh}{\ps@bbh}%
  1195.            \edef\@p@sheight{\@result}%
  1196.         \fi
  1197.         \fi\fi
  1198.         \compute@handw
  1199.         \compute@resv
  1200. }
  1201. %
  1202.  
  1203. %------------------------------------------------------------------
  1204. %%% by the way, possible parameters to the PSfile= command in dvips are:
  1205. %%%                    llx
  1206. %%%                    lly
  1207. %%%                    urx
  1208. %%%                    ury
  1209. %%%                    rwi
  1210. %       hoffset The horizontal offset (default 0)
  1211. %       voffset The vertical offset (default 0)
  1212. %       hsize   The horizontal clipping size (default 612)
  1213. %       vsize   The vertical clipping size (default 792)
  1214. %       hscale  The horizontal scaling factor (default 100)
  1215. %       vscale  The vertical scaling factor (default 100)
  1216. %       angle   The rotation (default 0)
  1217. %------------------------------------------------------------------
  1218. \long\def\graphic@verb#1{\def\next{#1}%
  1219.   {\expandafter\graphic@strip\meaning\next}}
  1220. \def\graphic@strip#1>{}
  1221. \def\graphic@zapspace#1{%
  1222.   #1\ifx\graphic@zapspace#1\graphic@zapspace%
  1223.   \else\expandafter\graphic@zapspace%
  1224.   \fi}
  1225. \def\psfig#1{%
  1226. \edef\@tempa{\graphic@zapspace#1{}}%
  1227. \ifvmode\leavevmode\fi\vbox {%
  1228.         %
  1229.         \ps@init@parms
  1230.         \parse@ps@parms{\@tempa}%
  1231.         %
  1232.         \ifnum\@psdraft=1
  1233.                 \typeout{[\@p@sfilefinal]}%
  1234.                 \if@verbose
  1235.                         \typeout{epsfig: using PSFIG macros}%
  1236.                 \fi
  1237.                 \psfig@method
  1238.         \else
  1239.                 \epsfig@draft
  1240.         \fi
  1241. }
  1242. }%
  1243. \def\graphic@zapspace#1{%
  1244.   #1\ifx\graphic@zapspace#1\graphic@zapspace%
  1245.   \else\expandafter\graphic@zapspace%
  1246.   \fi}
  1247. \def\epsfig#1{%
  1248. \edef\@tempa{\graphic@zapspace#1{}}%
  1249. \ifvmode\leavevmode\fi\vbox {%
  1250.         %
  1251.         \ps@init@parms
  1252.         \parse@ps@parms{\@tempa}%
  1253.         %
  1254.         \ifnum\@psdraft=1
  1255.           \if@angle\use@psfigtrue\fi
  1256.                 \ifuse@psfig
  1257.                         \if@verbose
  1258.                                 \typeout{epsfig: using PSFIG macros}%
  1259.                         \fi
  1260.                         \psfig@method
  1261.                 \else
  1262.                         \if@verbose
  1263.                                 \typeout{epsfig: using EPSF macros}%
  1264.                         \fi
  1265.                         \epsf@method
  1266.                 \fi
  1267.         \else
  1268.                 \epsfig@draft
  1269.         \fi
  1270. }%
  1271. }%
  1272.  
  1273.  
  1274. \def\epsf@method{%
  1275.         \epsfbbfoundfalse
  1276.         \if@bbllx\epsfbbfoundtrue\fi
  1277.         \if@bblly\epsfbbfoundtrue\fi
  1278.         \if@bburx\epsfbbfoundtrue\fi
  1279.         \if@bbury\epsfbbfoundtrue\fi
  1280.         \ifepsfbbfound\else\epsfgetbb{\@p@sfile}\fi
  1281.         \ifepsfbbfound
  1282.            \typeout{<\@p@sfilefinal>}%
  1283.            \epsfig@gofer
  1284.         \else
  1285.           \@latexerr{ERROR - Cannot locate BoundingBox}\@whattodobb
  1286.           \@p@@sbbllx{100bp}%
  1287.           \@p@@sbblly{100bp}%
  1288.           \@p@@sbburx{200bp}%
  1289.           \@p@@sbbury{200bp}%
  1290.                 \count203=\@p@sbburx
  1291.                 \count204=\@p@sbbury
  1292.                 \advance\count203 by -\@p@sbbllx
  1293.                 \advance\count204 by -\@p@sbblly
  1294.                 \edef\@bbw{\number\count203}%
  1295.                 \edef\@bbh{\number\count204}%
  1296.           \compute@sizes
  1297.           \epsfig@@draft
  1298.        \fi
  1299. }%
  1300. \def\psfig@method{%
  1301.         \compute@bb
  1302.         \ifepsfbbfound
  1303.           \compute@sizes
  1304.           \psfig@start
  1305.           % Create the vbox to reserve the space for the figure%
  1306.           \vbox to \@p@srheight sp{\hbox to \@p@srwidth 
  1307.             sp{\hss}\vss\psfig@end}%
  1308.         \else
  1309.            \epsfig@draft
  1310.         \fi
  1311. }%
  1312. %
  1313. % draft figure, just reserve the space and print the
  1314. % path name.
  1315. \def\epsfig@draft{\compute@bb\compute@sizes\epsfig@@draft}%
  1316. %
  1317. \def\epsfig@@draft{%
  1318. \typeout{<(draft only) \@p@sfilefinal>}%
  1319. \if@draftbox
  1320.         % Verbose draft: print file name in box
  1321.         \hbox{{\fboxsep0pt\fbox{\vbox to \@p@srheight sp{%
  1322.         \vss\hbox to \@p@srwidth sp{ \hss 
  1323.            \expandafter\Literally\@p@sfilefinal\@nil
  1324.                           \hss }\vss
  1325.         }}}}%
  1326. \else
  1327.         % Non-verbose draft
  1328.         \vbox to \@p@srheight sp{%
  1329.         \vss\hbox to \@p@srwidth sp{\hss}\vss}%
  1330. \fi
  1331. }%
  1332. \def\Literally#1\@nil{{\tt\graphic@verb{#1}}}
  1333. \def\psfigdriver#1{\typeout{^J WARNING: dont use psfigdriver!
  1334.  use a class option!^J}}
  1335. \endinput
  1336.  
  1337.  
  1338.